<TABLE CELLSPACING=1 CELLPADDING='2' BORDER=0 WIDTH='100%' align='center' style="BORDER-top: #009900 1px solid;">
<!-- Unfinished --------------------------------- -->
<TR>
	<TD colspan='2'  bgcolor='#CCFFCC'><B>UnfinishedEvent，花80%精力实现目标，20%精力处理问题【事项不要累积，时间是最贵的】</B></TD>
</TR>
<tr>
<TD style="BORDER-bottom: #cccccc 0px solid;" valign='top'  width='50%'>
<%
sqltodolist="select id,calendarTitle,calendarFlag,calendarFinType,calendarDate from Plan_calendar where calendarFinType<>10 and userid="&session("AnyPIM_userID")&" order by calendarFlag,calendarDate"
rs.open sqltodolist,conn,1,1
If rs.recordcount<>0 then
For iPage = 1 To rs.recordcount
%>
<TABLE CELLSPACING='1' CELLPADDING='1' BORDER='0' WIDTH='100%' align='center' valign='top'>
	<tr>
		<td align='left' width='20' valign='top'><img src="img/icon_04.gif" alt="" /></td>
		<td align='left' valign='top'>
		<font  style= "background:<%=ShowFlagColor(trim(rs("calendarFlag")))%>"><u><b><%=RS("calendarFinType")*10%>%,<%=DateDiff("d",rs("calendarDate"),now())%>天,<%=Trim(rs("calendarDate"))%></b></u></font>
		<A HREF="EventEdit.asp?ID=<%=int(RS("id"))%>"><u><%=Trim(RS("calendartitle"))%></u></A>
		</td>
	</tr>
</table>
<%
if iPage=int(rs.recordcount/2) then
%>
</TD>
<TD style="BORDER-bottom: #cccccc 0px solid;" valign='top'  width='50%'>
<%
end if
rs.MoveNext
Next
Else
%>
<br />
<a href="EventAdd.asp">暂无Event事件，请添加</a>
<br /><br />
<%
End if
rs.close
%>
</TD>
</tr>
</TABLE>